setdisplay(320,200,32,1):paper(0xFFFFFF):ink(0x000000):pen(0x000000):cls
function ptrng(v1,v2)
   ptrng=sqr((v1^2)+(v2^2))
 end function
for i=0 to 10
  a=int(rnd(100)):b=int(rnd(100))
  prints("ptrng("+str$(a)+","+str$(b)+")="+str$(ptrng(a,b)))
next
waitkey